home *** CD-ROM | disk | FTP | other *** search
/ Night Owl 6 / Night Owl's Shareware - PDSI-006 - Night Owl Corp (1990).iso / 023a / prop_man.zip / 28DAY.SAB next >
Text File  |  1991-09-30  |  1KB  |  43 lines
  1. SET MESSAGES OFF
  2. LABEL START
  3. CLEAR ALL V
  4. CLS
  5. DISPLAY CP.DIS
  6. WRITE "28DAY.SAB" AT 2,36
  7. LABEL FILL
  8. FILLIN ADDCODE     USING "Address Code                --> " AT 7,5
  9. set v nam to tenant1 in cur.mast where add.code = .addcode
  10. set v ads to address in cur.mast where add.code = .addcode
  11. write .nam at 9,10
  12. write .ads at 9,40
  13. SET V WHN to ""
  14. set v whn date
  15. fillin whn        using "Enter Required Vacancy Date  -> " at 11,5
  16.   label ask
  17. set v prnt to ""
  18. fillin prnt        using "(P)rint Notice, (R)edo Notice or (Q)uit  " at 18,5
  19.   if prnt = "p" then ; goto print ; endif
  20.   if prnt = "r" then ; cls ; goto fill ; endif
  21.   if prnt = "q" then ; cls ; goto ender ; endif
  22.       cls ; goto ask
  23. label print
  24. set null " "
  25. OUTPUT PRINTER
  26. PRINT 28DAY WHERE ADD.CODE = .ADDCODE
  27. print 28day where add.code = .addcode
  28. OUTPUT SCREEN
  29. change notice to .whn in cur.mast where add.code = .addcode
  30. CLS
  31. WRITE "28DAY.SAB" AT 24,71
  32. WRITE "SUCCESSFUL COMPLETION" AT 12,30
  33. SET V TIME TO 0
  34. WHILE TIME < 100 THEN
  35. SET V TIME TO (.TIME + 1)
  36. ENDWHILE
  37. label ender
  38. FILLIN Y/N USING "WOULD YOU LIKE TO RUN '28DAY.SAB' AGAIN ?" AT 12,18
  39. IF Y/N = "Y" THEN ; goto start ; endif
  40. SET MESSAGES ON
  41. return
  42.  
  43.